home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / mus / play / EP1_53fixed.lha / Eagleplayer / install next >
Text File  |  1994-10-24  |  27KB  |  1,000 lines
  1. ; This piece installs the Eagleplayer (TM) to your hard disk
  2. ; © 1993 DEFECT INC. All rights reserved.
  3. ; May only be distributed within the Eagleplayer package
  4. ;
  5. ; Written by Buggs/DFT
  6. ; Date: 24/Oct/94
  7.  
  8. (set #EP_Version (cat "1.53"))                ;Eagleplayer Version
  9. (set #EP_Disk1 (cat "Installdata/"))                ;Name of first Disk
  10. (set #EP_Disk2 (cat "Installdata/"))                ;Name of Second Disk
  11. (set #Space (cat "1.4 "))                ;Megabytes needed for
  12.                                                         ;installation.
  13. (set KickVersion (/ (getversion) 65536))
  14. (debug "Kickversion:" Kickversion)
  15. ;=========================== English texts ==================================
  16. (set Docfile ("Eagleplayer.Doc.Guide"))
  17.  
  18. (set #which-disk
  19. (cat "In which drawer shall I install the Eagleplayer?\n"
  20.      "(no own directory will be created by the script)"
  21. ))
  22.  
  23. (Set #intro
  24. (cat "This procedurce lets you install the full Eagleplayer Version "
  25.      #EP_Version
  26.      "including the needed libraries on your hard drive. Any previous "
  27.      "release already present will be replaced. For installing the full "
  28.      "package you need about "
  29.      #Space
  30.      "MBytes free space on your harddisk. \n"
  31.      "With the default installation settings the Eagleplayer uses the "
  32.      "Playerbatch functions to save memory by guessing the type of a "
  33.      "module by the name. "
  34.      "If you dislike this awesome feature you "
  35.      "only have to switch it off. (chapter 4.4 in the GUIDE file) "
  36.      "Note: If switched off all Players need about 600 KByte of free "
  37.      "memory ! So delete unused ones if you have not much memory."
  38. ))
  39.  
  40. (Set #WhatInstall
  41. (cat  "Which parts of the Eagleplayer Package do you want to install now ?"
  42. ))
  43.  
  44. (Set #WhatHelp
  45. (cat "Here you are asked to choose between the different parts of the "
  46.      "Eagleplayer package you want to get. Simply to start the Eagleplayer "
  47.      "the Main Program and the needed libraries are enough. \n"
  48.      "To be able playing modules of all supported formats you have to install "
  49.      "the supplied replayers. \n"
  50.      "For the analyzing and some extended controlling features you may choose "
  51.      "to install the so called Userprograms. \n"
  52.      "The Documentation is recommended to read for learning to know and to "
  53.      "handle all the abilities of this package. READ IT BEFORE COMPLAINING "
  54.      "ABOUT SEVERAL PROBLEMS !! \n"
  55.      @askoptions-help
  56. ))
  57.  
  58. (Set MainProgname
  59. (cat "Eagleplayer Main Program"
  60. ))
  61. (set Eagleplayersname
  62. (cat "External Replayers"
  63. ))
  64. (set Libsname
  65. (cat "needed Libraries"
  66. ))
  67. (set PrefsName
  68. (cat "Predefined Prefs"
  69. ))
  70. (set Userprogramsname
  71. (cat "Userprograms (Analyzers, etc.)"
  72. ))
  73. (set Documentationname
  74. (cat "Documentations"
  75. ))
  76. (set ArexxScriptsname
  77. (cat "Arexx Example Scripts"
  78. ))
  79. (set DeveloperKitname
  80. (cat "Developer Examples & include Files"
  81. ))
  82.  
  83. (set #where-libs
  84. (cat "Enter the Path where your LIBS: Directory is situated when you "
  85.      "boot from your Harddisk !"
  86. ))
  87.  
  88. (set #where-key
  89. (cat "Enter the Path where your DEVS: Directory is situated when you "
  90.      "boot from your Harddisk !"
  91. ))
  92.  
  93. (set #where-rexx
  94. (cat "Enter the Path where your REXX: Directory is situated when you "
  95.      "boot from your Harddisk !"
  96. ))
  97.  
  98. (set #where-envarc
  99. (cat "Enter the Path where your ENVARC: Directory is situated when you "
  100.      "boot from your Harddisk !"
  101. ))
  102.  
  103. (set #where-locale
  104. (cat "Enter the Path where your LOCALE: Directory is situated when you "
  105.      "boot from your Harddisk !"
  106. ))
  107.  
  108. (set #Betterabort
  109. (cat "OK, you booted from the Eagleplayer Disk. That means that this install "
  110.      "script doesn`t know your system`s settings and default drawers. If "
  111.      "you (due to the fact that you selected \"novice user\") don`t know "
  112.      "what and where your \"DEVS:\",\"REXX:\" and \"LIBS:\" paths are on your "
  113.      "harddisk then you better select \"ABORT INSTALL\", reboot your machine "
  114.      "from your harddisk and then put the Eagleplayer Disk 1 into your drive "
  115.      "and start this install-script again. Then this script will find these "
  116.      "paths automatically !"
  117. ))
  118.  
  119. (set #Betterboot
  120. (cat "OK, you booted from the Egleplayer Disk. That means you have to select "
  121.      "\"Libs:\",\"DEVS:\",\"REXX:\" and \"ENVARC:\" manually. If you don`t "
  122.      "want you better reboot from harddisk. "
  123. ))
  124.  
  125. (set #InstallReplays
  126. (cat "Installing the external Replayers, please wait."
  127. ))
  128.  
  129. (set #which-user13
  130. (cat "Which Kickstart 1.3 compatible Userprograms you wish to be installed ?"
  131. ))
  132.  
  133. (set #which-user20
  134. (cat "Which Userprograms requiering OS 2.0 you wish to be installed ?"
  135. ))
  136.  
  137. (set #which-user30
  138. (cat "Which Userprograms requiering OS 3.0 you wish to be installed ?"
  139. ))
  140.  
  141. (set #which-user-help
  142. (cat "This procedure asks you for selecting the Userprograms"
  143.      " this program should install. Userprograms are the external modules"
  144.      " the Eagleplayer loads out of the external Players. These can be"
  145.      " Analyzers, Scopes or new Surfaces. Please notice that some"
  146.      " Userprograms may take a lot of memory, so if you only own 1 MB"
  147.      " of even less memory, choose only these you really like. (HIFI-System"
  148.      " e.g. takes about 100 kB memory when it`s loaded) The Userprograms"
  149.      " marked with a "R"- sign at the beginning are only available for the"
  150.      " registered users and won`t be loaded in the general version. So if"
  151.      " you are not registered you don`t need to install them.      "
  152.      @Askoptions-help
  153. ))
  154.  
  155. (set #copyingdocs
  156. (cat "Installing the Amigaguide® Documentation File"
  157. ))
  158.  
  159. (set #copyinglocale
  160. (cat "Installing the Localisation File(s)"
  161. ))
  162.  
  163. (set #copydocs
  164. (cat "Where to copy the Eagleplayer documentation ?"
  165. ))
  166.  
  167. (set #copydocshelp
  168. (cat "Please confirm the Path you want to put these docs to."
  169. ))
  170.  
  171. (set #copyingexamples
  172. (cat "Installing the Developer Example Files"
  173. ))
  174.  
  175. (set #copyexamples
  176. (cat "Where to copy the Eagleplayer developer examples ?"
  177. ))
  178.  
  179. (set #copyexampleshelp
  180. (cat "The Program asks you if you want to get the developer"
  181.      " examples, the Resource (TM) symbolfile and the Testplayer onto"
  182.      " your had disk. For users with no experiences in Assembler-coding"
  183.      " these files shouldn`t be useful at all (I think). "
  184. ))
  185.  
  186. (set #copyingarexx
  187. (cat "Installing the Arexx Example Files"
  188. ))
  189.  
  190. (set #copymods
  191. (cat "Where to copy the supplied Soundmodules ?"
  192. ))
  193.  
  194. (set #copymodshelp
  195. (cat "Simply select whether you want the modules on your hard disk or"
  196.      "not and when yes, where you want them."
  197. ))
  198.  
  199. (set #copyprefs
  200. (cat "Copying default preferences.... (to \"ENVARC:\")"
  201. ))
  202.  
  203. (set #copyprefsenv
  204. (cat "Copying default preferences.... (to \"ENV\")"
  205. ))
  206.  
  207. (set #copykey
  208. (cat "Copying your personal Keyfile to devs:"
  209. ))
  210.  
  211. (set #copyhelp
  212. (cat "Copying your Helpfile"
  213. ))
  214.  
  215.  
  216. (set #copyprefsok
  217. (cat "Proceed"
  218. ))
  219.  
  220. (set #copyprefsno
  221. (cat "Skip this part"
  222. ))
  223.  
  224. (set #copyincludes
  225. (cat "Where to copy the Eagleplayer include files ?"
  226. ))
  227.  
  228. (set #copyincludeshelp
  229. (cat "Only for developers, the Eagleplayer include file needed for"
  230.      " creating own Replayroutines or Userprograms (not documented yet)."
  231. ))
  232.  
  233.  
  234. ;=========================== Deutsche Texte =================================
  235. (if (= @language "deutsch")
  236. (
  237.  
  238. (set Docfile ("Eagleplayer.Dok.Guide"))
  239.  
  240. (set #which-disk
  241. (cat "Wo soll der Eagleplayer installiert werden ? "
  242.      "(es wird kein eigenes Vezeichnis angelegt)"
  243. ))
  244.  
  245. (Set #intro
  246. (cat "Dieser Vorgang ermöglicht es Ihnen, das komplette Eagleplayer-Paket "
  247.      #EP_Version
  248.      " samt den benötigten Bibliotheken auf Ihrer Harddisk zu installieren. "
  249.      " jede vorherige Version wird ersetzt. Zur Installation des kompletten "
  250.      " Paketes werden etwa "
  251.      #Space
  252.      "MBytes freier Platz auf der Festplatte benötigt. Mit den dabei "
  253.      "installierten Einstellungen wird die \"Playerbatch\" Funktion "
  254.      "benutzt, mit der sich erheblich Speicher sparen läßt. Lesen "
  255.      "Sie dazu in der Anleitung das Kapitel 4.4 \"Batch Dateien\". "
  256.      "Wenn Sie diese Funktion abschalten, werden beim Start alle "
  257.      "externen Player mitgeladen, was etwa 600 KByte Speicher erfordert !"
  258. ))
  259.  
  260. (Set #WhatInstall
  261. (cat  "Welche Teile des Eagleplayerpaketes möchten Sie jetzt installieren ?"
  262. ))
  263.  
  264. (Set #WhatHelp
  265. (cat "Sie sollten nun auswählen, welche Teile des Eagleplayerpaketes Sie "
  266.      "haben wollen. Um den Eagleplayer starten zu können ist lediglich "
  267.      "das Hauptprogramm notwendig. (bei Bedarf die Libraries noch dazu) \n"
  268.      "Um Musikstücke aller unterstützter Formate abzuspielen müssen Sie "
  269.      "zwangsweise auch die externen Abspieler mit installieren.\n"
  270.      "Für die Analyzer und einige externe Kontrollfunktionen benötigen "
  271.      "Sie die sogenannten \"Userprogramme\".\n"
  272.      "Die Dokumentation zu installieren wird ihnen wärmstens ans Herz gelegt, "
  273.      "schließlich handelt es sich hier um ein Paket von weit über 1MB Umfang. "
  274.      "Falls Sie noch keinen Eagleplayer >1.51 installiert haben sollten, so "
  275.      "sollten Sie sich die \"Voreinstellungen\" installieren, da man sich "
  276.      "sonst beim Start ein totales Chaos von Fenstern einhandeln würde, die "
  277.      "alle gleichzeitig geöffnet werden. \n"
  278.      "AUßERDEM SOLLTEN SIE ERST IN DER ANLEITUNG NACHLESEN, BEVOR SIE SICH "
  279.      "ÜBER IRGEND ETWAS BESCHWEREN, DA EINIGE FUNKTIONEN ERST OPTIONAL ZUR "
  280.      "VERFÜGUNG STEHEN. (Bsp: Das Schließen des Hauptfensters führt lediglich "
  281.      "bei der Grundeinstellung nicht zum Ende des Programmes, da es sich hier um ein "
  282.      "Commodity handelt.)\n\n"
  283.      @askoptions-help
  284. ))
  285.  
  286. (Set MainProgname
  287. (cat "Eagleplayer Hauptprogramm"
  288. ))
  289. (set Eagleplayersname
  290. (cat "Externe Abspieler"
  291. ))
  292. (set Libsname
  293. (cat "benutzte Libraries"
  294. ))
  295. (set PrefsName
  296. (cat "Voreinstellungen (siehe Hilfe)"
  297. ))
  298. (set Userprogramsname
  299. (cat "Userprogramme"
  300. ))
  301. (set Documentationname
  302. (cat "Dokumentation"
  303. ))
  304. (set ArexxScriptsname
  305. (cat "Arexx Beispieldateien"
  306. ))
  307. (set DeveloperKitname
  308. (cat "Entwicklerunterlagen"
  309. ))
  310.  
  311. (set #where-libs
  312. (cat "Bitte geben Sie den Pfad an, wo sich das LIBS: Verzeichnis befindet, "
  313.      "wenn Sie von Festplatte booten !"
  314. ))
  315.  
  316. (set #where-key
  317. (cat "Bitte geben Sie den Pfad an, wo sich das DEVS: Verzeichnis befindet, "
  318.      "wenn Sie von Festplatte booten !"
  319. ))
  320.  
  321. (set #where-rexx
  322. (cat "Bitte geben Sie den Pfad an, wo sich das REXX: Verzeichnis befindet, "
  323.      "wenn Sie von Festplatte booten !"
  324. ))
  325.  
  326. (set #where-envarc
  327. (cat "Bitte geben Sie den Pfad an, wo sich das ENVARC: Verzeichnis befindet, "
  328.      "wenn Sie von Festplatte booten !"
  329. ))
  330.  
  331. (set #where-locale
  332. (cat "Bitte geben Sie den Pfad an, wo sich das LOCALE: Verzeichnis befindet, "
  333.      "wenn Sie von Festplatte booten !"
  334. ))
  335.  
  336. (set #Betterabort
  337. (cat "OK, Sie haben von der Eagleplayer Disk 1 gebootet. Dies bedeutet, daß "
  338.      "die Installationsdatei allein nicht herausfinden kann, wo sich die "
  339.      "Systemverzeichnisse befinden, wenn Sie von Festplatte hochfahren. "
  340.      "Da Sie \"Anfänger\" als Installationsoption angegeben haben, würde "
  341.      "ich vorschlagen, daß Sie \"Abort Install\" anwählen, ihren Rechner "
  342.      "neustarten und dann erst die Eagleplayerdiskette einlegen, nachdem "
  343.      "der Rechner von Festplatte hochgefahren ist. Dies würde für Sie "
  344.      "als Anfänger erheblich einfacher werden."
  345. ))
  346.  
  347. (set #InstallReplays
  348. (cat "Installiere die externen Abspieler, bitte warten ...."
  349. ))
  350.  
  351. (set #which-user13
  352. (cat "Welche unter Kickstart 1.3 nutzbaren Userprogramme möchten Sie "
  353.      "installieren ?"
  354. ))
  355.  
  356. (set #which-user20
  357. (cat "Welche Userprogramme, die OS 2.0 erfordern, möchten Sie installieren ?"
  358. ))
  359.  
  360. (set #which-user30
  361. (cat "Welche Userprogramme, die OS 3.0 erfordern, möchten Sie installieren ?"
  362. ))
  363.  
  364. (set #which-user-help
  365. (cat "Dieser Programmteil fragt Sie, welche Userprogramme Sie installieren"
  366.      " möchten. Userprogramme sind die externen Module, die außer den externen"
  367.      " Abspielroutinen beim Start des Programmes oder später geladen werden."
  368.      " Dieses können Spektrum Analyzer, Oszilliscopesimulatoren oder neue"
  369.      " Oberflächen sein. Bitte beachten Sie, daß einige Userprogramme eine"
  370.      " ganze Menge Speicher beanspruchen und somit sollten Sie bei nur 1 MB"
  371.      " oder gar weniger Hauptspeicher nur die auswählen, die Sie auch wirklich"
  372.      " oft nutzen. (so z.B. braucht "HIFI System" etwa 100 kByte) Diejenigen"
  373.      " Userprogramme, die mit einem "R" am Anfang gekennzeichnet sind, können"
  374.      " nur geladen werden, wenn Sie im Besitz einer registrierten Eagleplayer"
  375.      "version sind und Ihr Keyfile richtig installiert haben.      "
  376.      @Askoptions-help
  377. ))
  378.  
  379. (set #copyingdocs
  380. (cat "Installiere die Amigaguide® Dokumentationsdatei"
  381. ))
  382.  
  383. (set #copyinglocale
  384. (cat "Installiere die Übersetzten Dateien"
  385. ))
  386.  
  387. (set #copydocs
  388. (cat "Wohin soll ich die Eagleplayer Dokumentation kopieren ?"
  389. ))
  390.  
  391. (set #copydocshelp
  392. (cat "Bitte bestätigen Sie den Verzeichnispfad, wohin ich die Anleitungen"
  393.      " hinzukopieren habe."
  394. ))
  395.  
  396. (set #copyingexamples
  397. (cat "Installiere die Entwicklerbeispiele..."
  398. ))
  399.  
  400. (set #copyexamples
  401. (cat "Wohin soll ich die Eagleplayer Entwicklerbeispiele kopieren ?"
  402. ))
  403.  
  404. (set #copyexampleshelp
  405. (cat "Sie wurden gefragt ob Sie die Enfwickkerbeispiele, das Resource-"
  406.      "Symbolfile und den Testplayer installieren möchten. FÜr Anwender"
  407.      " ohne Assemblererfahrungen sind diese Dateien kaum relevant. "
  408. ))
  409.  
  410. (set #copyingarexx
  411. (cat "Installiere die Arexx Beispieldateien"
  412. ))
  413.  
  414.  
  415. (set #copyprefs
  416. (cat "Kopiere die vordefinierten Einstellungen (nach ENVARC:) ..."
  417. ))
  418.  
  419. (set #copyprefsenv
  420. (cat "Kopiere die vordefinierten Einstellungen (nach ENV:) ..."
  421. ))
  422.  
  423. (set #copyprefshelp
  424. (cat "Ja wat nu ?"
  425. ))
  426.  
  427. (set #copykey
  428. (cat "Kopiere Ihr persönliches Keyfile nach devs:"
  429. ))
  430.  
  431. (set #copyhelp
  432. (cat "Kopiere Datei für Online-Hilfe"
  433. ))
  434.  
  435. (set #copyprefsok
  436. (cat "Weiter"
  437. ))
  438.  
  439. (set #copyprefsno
  440. (cat "Diesen Teil überspingen"
  441. ))
  442.  
  443. )
  444. )
  445. ;======================= Prozeduren und Hilfsroutinen ======================
  446. (procedure DepackFile
  447. ;Extract one file from an lha archive
  448. ; syntax: 
  449. ;    (set #Message     ("Installing %s/%s..." Destdir Filename))
  450. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  451. ;    (set Destination (tackon target "Eagleplayers/"))
  452. ;    (set FileName    ("Actionamics"))
  453. ;    (Depackfile)
  454.  
  455.     (
  456.     (working #Message)
  457.     (set Error (run ("ram:lhx -q -Qp -N -wRAM: x %s \"%s\" \"%s\"" ArchiveName Destination FileName)))
  458.     (if (<> Error 0)
  459.         (message
  460.          ("Cannot Depack %s from the archive %s to %s" FileName ArchiveName Destination
  461.          )
  462.     )
  463.     )
  464.     )
  465. )
  466.  
  467. (procedure DepackFiles
  468. ;Extract all files from an lha archive
  469. ; syntax: 
  470. ;    (set #Message     ("Installing Bla Bla"))
  471. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  472. ;    (set Destination (tackon target "Eagleplayers/"))
  473. ;    (Depackfiles)
  474.  
  475.     (
  476.         (debug "In Entpackroutine für ganze Dirs")
  477.     (working #Message)
  478.     (set Error (run ("ram:lhx -q -Qp -N -wRAM: x %s \"%s\"" ArchiveName Destination)))
  479.     (if (<> Error 0)
  480.         (message
  481.             ("Cannot Depack from the archive %s to \n" ArchiveName
  482.              "%s" Destination
  483.             )
  484.     )
  485.     )
  486.     )
  487. )
  488.  
  489. (procedure DepackUserprg
  490.  (
  491.   (if (IN  maxfiles n)
  492.    (
  493.     (protect (tackon target (tackon "EP-Userprograms/" UPSFileName)) "+rwed")
  494.     (delete (tackon target (tackon "EP-Userprograms/" UPSFileName)))
  495.  
  496.     (set #Message     ("Installing EP-Userprograms/%s..." UPSFilename))
  497.     (set Destination (tackon target "EP-Userprograms/"))
  498.     (set FileName UPSFilename)
  499.     (depackfile)
  500.    )
  501.   )
  502.  )
  503. )
  504. ;============================== Welcome the User ===========================
  505.  
  506. (set @app-name (cat "Eagleplayer" #EP_version))
  507. (set APPNAME (cat "Eagleplayer" #EP_version))
  508.  
  509. ;(welcome)
  510.  
  511. (set old_level @user-level)
  512.  
  513. (user 2)
  514. (message #intro)
  515. (user old_level)
  516.  
  517. ;======================== Ask what he wants to install =======================
  518.  
  519. (set #InstallParts
  520.         (askoptions
  521.             (prompt #WhatInstall)
  522.             (help #WhatHelp)
  523.             (choices
  524.                 ("%s" MainProgname)        ;Bit 0
  525.                 ("%s" Eagleplayersname)        ;Bit 1
  526.                 ("%s" Userprogramsname)        ;Bit 2
  527.                 ("%s" PrefsName)        ;Bit 3
  528.                 ("%s" Libsname)            ;Bit 4
  529.                 ("%s" Documentationname)    ;Bit 5
  530.                 ("%s" ArexxScriptsname)        ;Bit 6
  531.                 ("%s" DeveloperKitname)        ;Bit 7
  532.             )
  533.         )
  534. )
  535. ;====== get target directory where the Eagleplayer is to be installed =====
  536.     (user 2)
  537.  
  538.     (set target (askdir (prompt #which-disk)
  539.                     (help @askdir-help)
  540.                     (default "DH0:")
  541.                     (disk)
  542.         )
  543.     )
  544.  
  545.    (set @default-dest target)
  546.  
  547.    (user old_level)
  548.  
  549. ;----------- set libs,devs and rexx path if needed  ----------
  550. (set Booted
  551.   (expandpath "sys:")
  552. )
  553.  
  554. (set Libpath ('Libs:'))
  555. (set Keypath ('Devs:'))
  556. (set Rexxpath ('Rexx:'))
  557. (set Envarcpath "Envarc:")
  558. (set Localepath ('Locale:'))
  559.  
  560. ;=================== Ask for the Userprograms ============================
  561.  (
  562.     (set keypresent (exists (tackon #EP_Disk1 "Eagleplayer.key"))
  563.     )
  564.     (set keypresent (+ keypresent (exists (tackon Keypath "Eagleplayer.key")))
  565.     )
  566.  
  567.       (debug "Wir haben als Keyfile:" keypresent)
  568.  
  569.      (if (<> keypresent 0)
  570.       (
  571.        ;setze Maske für registrierte Version (alle UPS)
  572.        (set user13 511)            ;<- muß 2^(Anzahl der UPS) -1  sein !!!
  573.        (if (> kickversion 36)
  574.         (set user20 16383)        ;<- muß 2^(Anzahl der UPS) -1  sein !!
  575.         (set user20 0)                   ;für Kick 1.3
  576.        )
  577.  
  578.        (if (> kickversion 38)
  579.         (set user30 3)            ;<- muß 2^(Anzahl der UPS) -1  sein !!
  580.         (set user30 0)                   ;für Kick 1.3
  581.        )
  582.  
  583.       )
  584.  
  585.       (
  586.        ;setze Maske für unregistrierte Version (nur unregistrierte UPS)
  587.        (set user13 498)
  588.        (if (> kickversion 36)
  589.         (set user20 3039)
  590.         (set user20 0)
  591.        )
  592.        (if (> kickversion 38)
  593.         (set user30 3)
  594.         (set user30 0)
  595.        )
  596.       )
  597.      )
  598.  
  599.  )
  600.  
  601. (if (AND (= @user-level 2) (IN #InstallParts 2))
  602.  (
  603.   (set user13
  604.    (askoptions (prompt #which-user13)
  605.                (help #which-user-help)
  606.                (choices 
  607.                                "R Analyze.small"     ;1
  608.                                "- Levelgraph"        ;2
  609.                                "R Levelgraph2"       ;4
  610.                                "R Levelmeter"        ;8
  611.                                "- Time"              ;16
  612.                                "- Noiseeagle"       ;32
  613.                                "- Patternscroll_1.3"    ;64
  614.                                "- Space-Scope+"       ;128
  615.                                "- Moduleinfo")       ;256
  616.  
  617.  
  618.                (default user13)
  619.    )
  620.   )
  621.  
  622.   (set user20
  623.    (askoptions (prompt #which-user20)
  624.                (help #which-user-help)
  625.                (choices 
  626.                               "- Analyzer"            ;1
  627.                               "- DirList Viewer"        ;2
  628.                               "- HiFi"                ;4
  629.                               "- M.E.L.G.U"            ;8
  630.                               "- Messagewindow"            ;16
  631.                               "R Monoscope"            ;32
  632.                               "- Patternscroll"            ;64
  633.                               "- Patternscroll++"        ;128
  634.                               "- Public Screen Manager"        ;256
  635.                               "- Space-Scope"            ;512
  636.                               "R Stereoscope"            ;1024
  637.                               "- Quadrascope"            ;2048
  638.                               "R Voicemeter")            ;4096
  639.                (default user20)
  640.    )
  641.   )
  642.  
  643.   (set user30
  644.    (askoptions (prompt #which-user30)
  645.                (help #which-user-help)
  646.                (choices 
  647.                               "- Levelmeter  AGA"        ;1
  648.                               "- Stereoscope AGA")        ;2
  649.                (default user30)
  650.    )
  651.   )
  652.  
  653.  )
  654. )
  655. (debug "Ausgewählte Userprogramme:" user13 user20 user30)
  656.  
  657. ;Disk 1 ============  Copy LHX to Ram: (to depack all archives) ==============
  658.     (copyfiles
  659.         (prompt "")
  660.         (help "")
  661.         (source (tackon #EP_Disk1 "lhx"))
  662.         (dest "RAM:")
  663.     )
  664.  
  665. ;Disk 1 ========== Copy the Eagleplayer to the desired directory =============
  666. ;       ==========                   if Exist:                   =============
  667. ;              beside of this: default prefs, keyfile and helpfile
  668. (if (IN #InstallParts 0)
  669.  (
  670.     (copyfiles (source (tackon #EP_Disk1 "Eagleplayer"))
  671.                (dest target)
  672.                (infos)
  673.                (optional "force" "nofail")
  674.     )
  675.  
  676.      (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  677.      )
  678.  
  679.       (if (= keypresent 1)
  680.  
  681.        (
  682.  
  683.          (copyfiles (optional "nofail")
  684.                     (source (tackon #EP_Disk1 "Eagleplayer.key"))
  685.                     (dest keypath)
  686.                     (prompt #copykey)
  687.                     (help "Read the Docs")
  688.                     (confirm)
  689.          )
  690.  
  691.       )
  692.      )
  693.  
  694.      (set keypresent (exists (tackon #EP_Disk1 "Eagleplayer.help"))
  695.      )
  696.  
  697.       (if (= keypresent 1)
  698.  
  699.        (
  700.  
  701.         (copyfiles (optional "nofail")
  702.                  (source (tackon #EP_Disk1 "Eagleplayer.help"))
  703.                  (dest target)
  704.                  (prompt #copyhelp)
  705.                  (help "Read the Docs")
  706.                  (confirm)
  707.         )
  708.        )
  709.       )
  710.  )
  711. )
  712. ;========================= copy Preferences  ===================================
  713. (if (IN #InstallParts 3)
  714.  (
  715.      (set keypresent (exists Envarcpath))
  716.      (debug "Envarc gefunden:" keypresent)
  717.  
  718.       (if (= keypresent 2)
  719.        (
  720.          (copyfiles (optional "nofail")
  721.                     (source (tackon #EP_Disk1 "prefs/env-archive"))
  722.                     (dest Envarcpath)
  723.                     (prompt #copyprefs)
  724.                     (help "")
  725.                     (confirm)
  726.                     (all)
  727.          )
  728.        )
  729.       )
  730.  
  731.      (if (<> #EP_Disk1 Booted)
  732.       (
  733.  
  734.        (set keypresent (exists "Env:"))
  735.        (debug "Env: gefunden:" keypresent)
  736.  
  737.        (if (= keypresent 2)
  738.         (
  739.          (copyfiles (optional "nofail")
  740.                     (source (tackon #EP_Disk1 "prefs/env-archive"))
  741.                     (dest "env:")
  742.                     (prompt #copyprefsenv)
  743.                     (help "")
  744.                     (confirm)
  745.                     (all)
  746.          )
  747.         )
  748.        )
  749.       )
  750.      )
  751.  )
  752. )
  753. ;Disk 1 ================= copy Libraries ===================================
  754. (if (IN #InstallParts 4)
  755.  (
  756.   (copylib
  757.       (prompt "Copy XPKMaster.library")
  758.       (help @copylib-help)
  759.       (source (tackon #EP_Disk1 "LIBS/XPKMaster.library"))
  760.       (dest Libpath)
  761.       (confirm)
  762.       (optional "nofail")
  763.   )
  764.  
  765.   (copyfiles
  766.      (prompt "Copy XPKNuke/XPKSQSH/XPKCRMS.library")
  767.      (help @copylib-help)
  768.      (source (tackon #EP_Disk1 "LIBS/Compressors/"))
  769.      (dest (tackon Libpath "Compressors"))
  770.      (confirm)
  771.      (optional "nofail")
  772.      (all)
  773.   )
  774.  
  775.   (copylib
  776.      (prompt "Copy Powerpacker.library")
  777.      (help @copylib-help)
  778.      (source (tackon #EP_Disk1 "LIBS/Powerpacker.library"))
  779.      (dest Libpath)
  780.      (confirm)
  781.      (optional "nofail")
  782.   )
  783.  
  784.   (copylib
  785.      (prompt "Copy LH.library")
  786.      (help @copylib-help)
  787.      (source (tackon #EP_Disk1 "LIBS/lh.library"))
  788.      (dest Libpath)
  789.      (confirm)
  790.      (optional "nofail")
  791.   )
  792.  
  793.   (copylib
  794.      (prompt "Copy Req.library")
  795.      (help @copylib-help)
  796.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  797.    (dest Libpath)
  798.      (confirm)
  799.    (optional "nofail")
  800.   )
  801.  
  802.   (copylib
  803.      (prompt "Copy Reqtools.library")
  804.      (help @copylib-help)
  805.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  806.    (dest Libpath)
  807.      (confirm)
  808.    (optional "nofail")
  809.   )
  810.  )
  811. )
  812.  
  813. ;Disk 2 ============== copy the external Players to be installed ========
  814. (if (IN #InstallParts 1)
  815.   (
  816.     (set yo (exists (tackon target "Eagleplayers")))
  817.       (if (<> yo 0)
  818.        (
  819.         (debug "so ein schit!!")
  820.     (set eplayers (tackon target "Eagleplayers"))
  821.     (set Error (run ("c:delete %s all" eplayers)))
  822.        )
  823.       )
  824.  
  825.     (makedir (tackon target "Eagleplayers")
  826.              (infos)
  827.     )
  828.  
  829.    (set #Message #InstallReplays)
  830.    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk2))
  831.    (set Destination (tackon target "Eagleplayers/"))
  832.    (Depackfiles)
  833.   )
  834. )
  835.  
  836. ;Disk 2======================== copy Docs ===================================
  837. ;              Betriebssystem < 3.0 -> Install Amigaguide
  838. (if (IN #InstallParts 5)
  839.   (
  840.     (set doctarget (askdir (prompt #copydocs)
  841.                            (help #copydocshelp)
  842.                            (default target)
  843.                            (disk)
  844.                    )
  845.     )
  846.  
  847.     (set #Message #copyingdocs)
  848.     (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  849.     (set Destination "ram:")
  850.     (set FileName Docfile)
  851.     (Depackfile)
  852.  
  853.     (set #Message #copyingdocs)
  854.     (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  855.     (set Destination "ram:")
  856.     (set FileName ("%s.info" Docfile))
  857.     (debug Filename)
  858.     (debug Archivename)
  859.     (Depackfile)
  860.  
  861.     (set ramtest (expandpath doctarget))
  862.     (set ramtest2 (expandpath "ram:"))
  863.  
  864.     (if (<> ramtest ramtest2)
  865.      (
  866.       (copyfiles (source (tackon "ram:" docfile))
  867.                (dest doctarget)
  868.                (infos)
  869.                (optional "force" "nofail")
  870.       )
  871.  
  872.       (delete (tackon "ram:" docfile))
  873.       (delete ("ram:%s.info" docfile))
  874.      )
  875.     )
  876.   )
  877. )
  878.  
  879. ;Disk 2 =============== copy the Userprograms ===========================
  880. (if (IN #InstallParts 2)
  881.  (
  882.   (set yo (exists (tackon target "EP-Userprograms")))
  883.     (if (<> yo 0)
  884.      (
  885.       (debug "so ein schit!!")
  886.       (set eplayers (tackon target "EP-Userprograms"))
  887.       (set Error (run ("c:delete %s all" eplayers)))
  888.      )
  889.     )
  890.  
  891.   (makedir (tackon target "EP-Userprograms")
  892.            (infos)
  893.   )
  894.  
  895.   (if (<> user13 0)
  896.    (
  897.     (set n 0)
  898.     (set maxfiles user13)
  899.     (set ArchiveName ("%sUserprograms.lha" #EP_Disk2))
  900.       (while (set UPSFileName
  901.               (select n
  902.             "Analyze.small"
  903.             "Levelgraph"
  904.             "Levelgraph2"
  905.             "Levelmeter"
  906.             "Time"
  907.             "Noiseeagle"
  908.                         "Patternscroll_Kick1.3"
  909.                         "Space-Scope+"
  910.                         "Moduleinfo"
  911.             ""
  912.             )
  913.              )
  914.            (Depackuserprg)
  915.            (set n (+ n 1))
  916.     )
  917.      )
  918.   )
  919.  
  920.   (if (<> user20 0)
  921.    (
  922.     (set n 0)
  923.     (set maxfiles user20)
  924.       (while (set UPSFileName
  925.               (select n
  926.                          "Analyzer"
  927.                          "DirListViewer"
  928.                          "HiFi"
  929.                          "M.E.L.G.U"
  930.                          "Messagewindow"
  931.                          "Monoscope"
  932.                          "Patternscroll"
  933.                          "Patternscroll++"
  934.                          "PublicScreenmanager"
  935.                          "Space-scope"
  936.                          "Stereoscope"
  937.                          "Quadrascope"
  938.                          "Voicemeter"
  939.                          ""
  940.             )
  941.              )
  942.            (Depackuserprg)
  943.            (set n (+ n 1))
  944.     )
  945.      )
  946.   )
  947.  
  948.   (if (<> user30 0)
  949.    (
  950.     (set n 0)
  951.     (set maxfiles user30)
  952.       (while (set UPSFileName
  953.               (select n
  954.                          "LevelmeterAGA"
  955.                          "StereoscopeAGA"
  956.                          ""
  957.             )
  958.              )
  959.            (Depackuserprg)
  960.            (set n (+ n 1))
  961.     )
  962.      )
  963.   )
  964.  
  965.  
  966.  )
  967. )
  968.  
  969. ;Disk 2 ================== copy Developer Examples =============================
  970. (if (IN #InstallParts 7)
  971.   (
  972.     (set examplestarget (askdir (prompt #copyexamples)
  973.                                 (help #copyexampleshelp)
  974.                             (default target)
  975.                             (disk)
  976.                         )
  977.     )
  978.  
  979.    (set #Message #copyingexamples)
  980.    (set ArchiveName ("%sDeveloper.lha" #EP_Disk2))
  981.    (set Destination examplestarget)
  982.    (Depackfiles)
  983.   )
  984. )
  985.  
  986. ;Disk 2 ===================== copy Arexx-Scripts =======================
  987. (if (IN #InstallParts 6)
  988.   (
  989.    (set #Message #copyingarexx)
  990.    (set ArchiveName ("%sArexxExamples.lha" #EP_Disk2))
  991.    (set Destination Rexxpath)
  992.    (Depackfiles)
  993.   )
  994. )
  995.  
  996. ;============= ready installing the Eagleplayer  =======================
  997. (delete "ram:lhx")
  998.  
  999. (exit)
  1000.